home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997: The Complete Utilities Toolkit / macworld-complete-utilities-1997.iso / Desktop ⁄ Finder / FinderProgressBar 2.0 / RegisterSafeFat.r < prev    next >
Encoding:
Text File  |  1995-03-05  |  6.0 KB  |  128 lines  |  [TEXT/MMCC]
  1. #include "MixedMode.r"
  2.  
  3. /****************
  4.  
  5.     RegisterSafeFat.r -- Chris Larson, 1995
  6.  
  7.     Use this template to create a safe, fat resource. This template
  8.     differs from that in MidexMode.r in that it allows the construction
  9.     of resources containing code with register-based calling conventions.
  10.     All registers are preserved but condition codes are not, so if your
  11.     resource’s entry point depends upon the condition codes, this
  12.     template will not work.
  13.     
  14.     First, the address of _Unimplemented is retrieved. Then, the size of the
  15.     toolbox trap table is determined according to the method in Inside Macintosh:
  16.     Operating System Utilities, page 8-22 (Trap Manager chapter). If a small trap
  17.     table is in use (pretty much meaning a Plus or SE with System 6), a 680x0 with
  18.     no Mixed Mode Manager is assumed. If a large trap table exists, we check to
  19.     see if _MixedModeMagic is implemented. If so, the routine descriptor is copied
  20.     to the head of the resource. Otherwise, a branch instruction is installed at the
  21.     top of the resource which points to the 680x0 code. Then, if _HWPriv is
  22.     implemented, the instruction cache is flushed. The initial register contents
  23.     are restored, and we branch (by means of RTS) to the top of the resource
  24.     which now contains the routine descriptor or the branch instruction.
  25.     
  26.     This template has been tested on the following systems:
  27.         (1) Power Macintosh 7100/80, System 7.5
  28.         (2) PowerBook 160, System 7.1 (with System Update 3.0)
  29.         (3) Macintosh Plus, System 6.0.8
  30.  
  31.     Use it in the same manner as you use the 'sdes' template (except,
  32.     of course, this template is called 'Rdes' for Register sdes).
  33.     
  34. ****************/
  35.  
  36. /*  Safe Fat Resource Allowing Register-Based Calling Conventions  */
  37.  
  38. type 'Rdes' { 
  39. Top:
  40.     hex string    = 
  41.         $"48E7 E0C0"         // Start:            MOVEM.L   D0-D2/A0/A1,-(A7)        ; Save work registers.
  42.         $"303C A89F"         //                 MOVE.W    #$A89F,D0                ; Move _Unimplemented trap word to D0.
  43.         $"A746"              //                 _GetToolBoxTrapAddress            ; Get _Unimplemented’s address.
  44.         $"2F08"              //                 MOVE.L    A0,-(A7)                ; Push the address onto the stack.
  45.         $"303C A86E"         //                 MOVE.W    #$A86E,D0                ; Move _InitGraf trap word into D0.
  46.         $"A746"              //                 _GetToolBoxTrapAddress            ; Get _InitGraf’s address.
  47.         $"2F08"              //                 MOVE.L    A0,-(A7)                ; Push _InitGraf’s address.
  48.         $"303C AA6E"         //                 MOVE.W    #$AA6E,D0                ; Move the test trap word into D0.
  49.         $"A746"              //                 _GetToolBoxTrapAddress            ; Get the test trap’s address.
  50.         $"B1DF"              //                 CMPA.L    (A7)+,A0                ; Is it the same as _InitGraf (and pop _InitGraf)?
  51.         $"670A"              //                 BEQ.S     NoMixedMode            ; Yup, small trap tables: assume 680x0, no Mixed Mode.
  52.         $"303C AAFE"         //                 MOVE.W    #$AAFE,D0                ; Move _MixedModeMagic trap word into D0.
  53.         $"A746"              //                 _GetToolBoxTrapAddress            ; Get _MixedModeMagic’s address.
  54.         $"B1D7"              //                 CMPA.L    (A7),A0                ; Is _MixedModeMagic implemented?
  55.         $"6616"              //                 BNE.S     HasMixedMode            ; Yup, install the routine descriptor.
  56.         $"41FA FFD6"         // NoMixedMode:    LEA       Start,A0                ; Get the address of Start into A0.
  57.         $"30FC 6000"         //                 MOVE.W    #$6000,(A0)+            ; Install the bra.w opcode.
  58.         $"43FA 0034"         //                 LEA       TheRD,A1                ; Load routine descriptor address into A1.
  59.         $"2029 0014"         //                 MOVE.L    $0014(A1),D0            ; Move the displacement to 680x0 code (from Start) to D0.
  60.         $"5540"              //                 SUBQ.W    #$2,D0                ; Correct displacement for length of bra.w opcode.
  61.         $"3080"              //                 MOVE.W    D0,(A0)                ; Install branch displacement.
  62.         $"6010"              //                 BRA.S     Done                    ; We’re outa here.
  63.         $"43FA FFC0"         // HasMixedMode:    LEA       Start,A1                ; Load Start address into A1.
  64.         $"41FA 0022"         //                 LEA       TheRD,A0                ; Load routine descriptor address into A0.
  65.         $"203C 0000 0034"    //                 MOVE.L    #$34,D0                ; Size of routine descriptor to D0.
  66.         $"A22E"              //                 _BlockMoveData                    ; Install routine descriptor (don’t flush cache yet).
  67.         $"303C A198"         // Done:            MOVE.W    #$A198,D0                ; Move _HWPriv trap word into D0.
  68.         $"A346"              //                 _GetOSTrapAddress                ; Get _HWPriv’s address.
  69.         $"B1DF"              //                 CMPA.L    (A7)+,A0                ; Is _HWPriv implemented (and pop _Unimplemented)?
  70.         $"6704"              //                 BEQ.S     NoCache                ; Nope, skip the cache flush.
  71.         $"7001 A198"         //                 _FlushInstructionCache            ; Flush I-Cache so our modifications work.
  72.         $"4CDF 0307"         // NoCache:        MOVEM.L   (A7)+,D0-D2/A0/A1        ; Restore the work registers.
  73.         $"487A FF9E"         //                 PEA       Start                    ; Push the address to jump to (so we can RTS to it).
  74.         $"4E75";             //                 RTS                                ; Jump to Start (now containing RD or bra.w).
  75.                              // TheRD:
  76.  
  77.     /* Routine Descriptor */
  78.     
  79.     GoMixedModeTrapType             = _MixedModeMagic;
  80.     VersionType                        = kRoutineDescriptorVersion;
  81.     fill bit [7];
  82.     SelectorsAreIndexableType        = FALSE;
  83.     Reserved1Type;
  84.     Reserved2Type;
  85.     SelectorInfoType                = 0;
  86.     RoutineCountType                = 1;
  87.  
  88.     /* Routine Record For 680x0 Code */
  89.     
  90.     ProcInfoType;
  91.     Reserved3Type;
  92.     ISAType                            = kM68kISA;
  93.     fill bit [11];
  94.     RoutineIsDispatchedDefaultType     = FALSE;
  95.     DontPassSelectorType            = FALSE;
  96.     UseNativeISAType                = TRUE;
  97.     FragmentNeedsPreparingType        = FALSE;
  98.     ProcDescriptorIsRelativeType    = TRUE;
  99.     ProcDescriptorType                = ( Start680x0 - Top ) / 8;
  100.     Reserved4Type;
  101.     SelectorType                    = 0;
  102.  
  103.     /* Routine Record For PPC Code */
  104.     
  105.     ProcInfoType;
  106.     Reserved3Type;
  107.     ISAType    = kPowerPCISA;
  108.     fill bit [11];
  109.     RoutineIsDispatchedDefaultType     = FALSE;
  110.     DontPassSelectorType             = FALSE;
  111.     UseNativeISAType                 = TRUE;
  112.     FragmentNeedsPreparingType        = TRUE;
  113.     ProcDescriptorIsRelativeType    = TRUE;
  114.     ProcDescriptorType                 = ( StartPPC - Top ) / 8;
  115.     Reserved4Type;
  116.     SelectorType                     = 0;
  117.     Align LONG;
  118.  
  119. Start680x0:
  120.     hex string;        // The 680x0 code starts here
  121.  
  122.     Align LONG;
  123.  
  124. StartPPC:
  125.     hex string;        // The PEF container starts here
  126. };
  127.  
  128.